home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt232w.zip / THP7595.ZIP / T7-21.BAS < prev    next >
BASIC Source File  |  1992-08-12  |  684b  |  22 lines
  1. 10 OPEN "T7-21.PLT" FOR OUTPUT AS #1
  2. 20 PRINT #1,"IN;SP1;"
  3. 30 PRINT #1,"PA0,0;"
  4. 40 PRINT #1,"DI0,1;LB___1987"+CHR$(3)
  5. 50 PRINT #1,"DI1,1;LB___1988"+CHR$(3)
  6. 60 PRINT #1,"DI1,0;LB___1989"+CHR$(3)
  7. 100 PI=3.14593
  8. 110 A%=COS(315*(PI/180))
  9. 120 B%=SIN(315*(PI/180))
  10. 130 PRINT #1,"DI";A%;",";B%;";LB___1990"+CHR$(3)
  11. 140 C%=COS(270*(PI/180))
  12. 150 D%=SIN(270*(PI/180))
  13. 160 PRINT #1,"DI";C%;",";D%;";LB___1991"+CHR$(13)+CHR$(3)
  14. 170 E%=COS(225*(PI/180))
  15. 180 F%=SIN(225*(PI/180))
  16. 190 PRINT #1,"DI";E%;",";F%;";LB___1992"+CHR$(13)+CHR$(3)
  17. 200 G%=COS(-180*(PI/180))
  18. 210 H%=SIN(-180*(PI/180))
  19. 220 PRINT #1,"DI";G%;",";H%;";LB___1993"+CHR$(13)+CHR$(3)
  20. 230 PRINT #1,"SP0;"
  21. 240 END
  22.